home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / simpleio.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  2.3 KB  |  60 lines
  1. DEFINITION MODULE SimpleIO;
  2. (* Uses the "standard" files input, output, and log which may be manipulated
  3.    by the module StandardIO *)
  4. (*
  5. *    Copyright (c) 1985,1986,1987,1988,1989 by
  6. *    ana-systems, Foster City, California.
  7. *    All Rights Reserved.
  8. *
  9. *    This software is furnished under a license and may be used and copied
  10. *    only  in accordance with  the  terms  of  such  license and  with the
  11. *    inclusion of the above copyright notice.  This software or  any other
  12. *    copies thereof may not be provided or otherwise made available to any
  13. *    other  person.   No title to and ownership of the  software is  herby
  14. *    transferred.
  15. *
  16. *    The information in this software is  subject to change without notice
  17. *    and  should  not be construed as a commitment by ana-systems.   No
  18. *    warranty is implied or expressed.
  19. *
  20. *   SCCID  = "1.2    9/19/86"; 
  21. *)
  22. FROM SYSTEM IMPORT WORD;
  23.  
  24. EXPORT QUALIFIED
  25.    EOF,       EOT,         EOL,
  26.    ReadChar,  ReadString,  ReadLine,  ReadLn,  ReadInt,  
  27.    ReadCard,  ReadNum,     CondRead,  UndoRead,
  28.    WriteChar, WriteString, WriteLn,   WriteInt, WriteCard,  WriteNum;
  29.  
  30. PROCEDURE EOF () : BOOLEAN;
  31. PROCEDURE EOT () : BOOLEAN;
  32. PROCEDURE EOL () : BOOLEAN;
  33.  
  34. PROCEDURE ReadChar   (VAR ch      : CHAR);
  35. PROCEDURE ReadString (VAR str     : ARRAY OF CHAR); (* same as in Text *)
  36. PROCEDURE ReadLine   (VAR line    : ARRAY OF CHAR); (* same as in Text *)
  37. PROCEDURE ReadLn;
  38. PROCEDURE ReadInt    (VAR int     : INTEGER;
  39.                       VAR success : BOOLEAN);
  40. PROCEDURE ReadCard   (VAR card    : CARDINAL;
  41.                       VAR success : BOOLEAN);
  42. PROCEDURE ReadNum    (VAR num     : CARDINAL;
  43.                           base    : CARDINAL (* [2..36] *);
  44.                       VAR success : BOOLEAN);
  45. PROCEDURE CondRead   (VAR ch      : CHAR;
  46.                       VAR success : BOOLEAN);
  47. PROCEDURE UndoRead   ();
  48.  
  49. PROCEDURE WriteChar  (    ch      : CHAR);
  50. PROCEDURE WriteLn;
  51. PROCEDURE WriteString(VAR str     : ARRAY OF CHAR);
  52. PROCEDURE WriteInt   (    int     : INTEGER;
  53.                           width   : CARDINAL);
  54. PROCEDURE WriteCard  (    card    : CARDINAL;
  55.                           width   : CARDINAL);
  56. PROCEDURE WriteNum   (    num     : CARDINAL;
  57.                           base    : CARDINAL (* [2..36] *);
  58.                           width   : CARDINAL);
  59. END SimpleIO.
  60.